home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / BIGREC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  1.3 KB  |  57 lines
  1. PROGRAM a_larger_record;
  2.  
  3. CONST  number_of_friends = 50;
  4.  
  5. TYPE full_name = RECORD
  6.       first_name : STRING[12];
  7.       initial    : CHAR;
  8.       last_name  : STRING[15];
  9.       END;
  10.  
  11.      date      = RECORD
  12.       day        : BYTE;
  13.       month      : BYTE;
  14.       year       : INTEGER;
  15.       END;
  16.  
  17.      person    = RECORD
  18.       name       : full_name;
  19.       city       : STRING[15];
  20.       state      : STRING[2];
  21.       zipcode    : STRING[5];
  22.       birthday   : date;
  23.       END;
  24.  
  25. VAR   friend             : ARRAY[1..number_of_friends] OF person;
  26.       self,mother,father : person;
  27.       index              : BYTE;
  28.  
  29. BEGIN  (* main program *)
  30.   self.name.first_name := 'Charley';
  31.   self.name.initial    := 'Z';
  32.   self.name.last_name  := 'Brown';
  33.  
  34.   WITH self DO
  35.   BEGIN
  36.     city := 'Anywhere';
  37.     state := 'CA';
  38.     zipcode := '97342';
  39.     birthday.day := 17;
  40.     WITH birthday DO
  41.     BEGIN
  42.       month := 7;
  43.       year := 1938;
  44.     END;
  45.   END;    (* all data for self now defined *)
  46.  
  47.   mother := self;
  48.   father := mother;
  49.   FOR index := 1 TO number_of_friends DO
  50.     friend[index] := mother;
  51.  
  52.   WRITE(friend[27].name.first_name,' ');
  53.   WRITE(friend[33].name.initial,' ');
  54.   WRITE(father.name.last_name);
  55.   WRITELN;
  56.  
  57. END. (* of main program *)